home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00543.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  764 b   |  29 lines
  1. on exitFrame me
  2.   global j
  3.   repeat with j = 40 to 46
  4.     set the constraint of sprite j to 0
  5.   end repeat
  6.   repeat with j = 40 to 46
  7.     set the constraint of sprite j to j - 8
  8.     set the locH of sprite j to 400 + ((j - 31) * 50)
  9.     set the locV of sprite j to 55
  10.   end repeat
  11.   repeat with j = 59 to 65
  12.     set the constraint of sprite j to j - 27
  13.   end repeat
  14.   sprite(40).color = rgb(128, 128, 128)
  15.   sprite(41).color = rgb(255, 0, 0)
  16.   sprite(42).color = rgb(255, 255, 0)
  17.   sprite(43).color = rgb(0, 255, 0)
  18.   sprite(44).color = rgb(0, 255, 255)
  19.   sprite(45).color = rgb(0, 0, 255)
  20.   sprite(46).color = rgb(255, 0, 255)
  21.   showit(185, 187)
  22.   hideit(188, 190)
  23.   showit(191, 191)
  24.   hideit(192, 197)
  25.   showit(198, 200)
  26.   hideit(201, 202)
  27.   showit(203, 203)
  28. end
  29.